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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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OTHER PERSON. NO TITLE TO AND OWNERSHIP OF T 

TRANSFERRED. 
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OPCOM 


ABSTRACT: 


ooooo 
NOUS WN 


ooo 


So 
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This module contains the specialized logic to service 
a@ particular type of request sent by a user to OPCOM. 


Environment: 


VAX/VMS operating system. 


Author: 
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Sere 
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Steven T. Jeffreys 


Creation date: 
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March 10, 1981 
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Various and sundry things to make OPCOM distributed 
across the cluster. 
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: 38 28 Handle implicitly canceled requests. 

; f ¢ ie 

; 6 ¢ | BEGIN ' Start of STATUS 

: 64 rt 1 LIBRARY tSYSSLIBRARY L1B.L32"; 

3 o $e ! LIBRARY ‘LIB$:OPCOMLIB'; 

Oe? 1 FORWARD ROUTINE 

; 68 0068 STATUS_HANDLER : NOVALUE; 

: 76 0070 } BUILTIN 

oe 0072 1 INSQUE, ! Insert entry onto a queue 
: 7 0073 1 REMQUE; i Remove entry from a queue 
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GLOBAL ROUTINE STATUS_HANDLER (BUFFER_DESC) 


lee 
! Functional description: 
This routine is the handler for all STATUS messages received by OPCOM. 


: The address of a 
describes the buf 


Implicit Input: 


Implict output: 


Some accounting data will be updated 
to reflect the receipt of the message. 


Side effects: 


Routine value: 


: Sref_bblock; 


MESSAGE VECTOR =: VECTOR [5,LONG], 
US_BESC : 


! 
-MAXREAD), 
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1b-sep-1984 
14-Sep-1984 


: NOVALUE = 


uadword buffer descriptor that 
er containing the message. 
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Start of STATUS_HANDLER 


Common sanity checks 
Dispose of an ROQCB 
Locate a given operator 
Format an OPCOM message 
See if the request is dead 
Perform cancellation 
Interpret attention mask 

a given operato 
operator device 


Status message descriptor 
! Status message buffer 
! RQCB data structure 


] 
! The operator is known to opcom. Send the operator 
: the standard status message. 


STATUS_DESC (0,0,32,0] = OPCSK_MAXREAD; ' Set buffer size 
STATUS_DESC CDSC$A_POINTER] = STATUS BUF; i Set buffer address 
LF NOT INTERPRET_MASK (OPER_RQCB CROCB_LATTNMASK1], STATUS_DESC, STATUS_DESC) 


SN NNO OO 


BEGIN 
DEALLOCATE_ROQCB (.RQCB); 
RETURN; 


“ 
OPCSSTATUS 1b-se -1984 01:57: VAX-11 Bliss-32 V4.0-742 Page 4 
1055800 1 ~3007 138% 93:25:38 DISKSVMSMASTER: COPCOM, SRCISTATUS.B32:1> (2) 
3 3 ¢ 131 OPER_ROCB : $ref_bblock, ! ditto (for known operator) 
‘2 1 § RQST_ROCB : $ref_bblock, ! ditto (for request RQCB) 
3 1 OCD : Sref_bblock, ! OCD data structure 
3 Ise 1 MCB : Sref_bblock, ! MCB data structure 
-% 135 RQST_COUNT : LONG, ! Count of requests 
s 3 1 § STATOS : LONG; 
: 139 i 
: 140 1 § i Check the minimum request size. If not 
5 19) re enough data, then ignore the message. 
: 148 \4¢ IF .BUFFER_DESC CDSCSW_LENGTH] LSS (OPCSK_COMHDRSIZ + OPC$K_STATUS_MIN_SIZE) 
: 145 164 RETURN; 
: 147 mes ! Do some common sanity checking, and get an RQCB. 
; 149 148 if NOT CHECK_REQUEST (.BUFFER_DESC, RQCB) 
: 133 0150 RETURN; 
: 138 01533 Make sure this is a valid operator device. 
: 155 b184 if NOT VALID_OPERATOR (.BUFFER_DESC, .RQCB) 
: 18 136 § Mec 
; 158 139 DEALLOCATE_RQCB (.RQCB); ! Dismiss the request 
3 128 oia6 RETURN; 
: 161 0160 2! : “wei 
3 106 Bie3 See if this is a valid operator. If not, then dismiss the request. 
3 164 b168 if NOT FIND_OPERATOR (.RQCB, OPER_RQCB) 
: 18 B18 § accra 
: 163 01 MESSAGE_VECTOR fo} = OPC$_ILLRQST; ' Set message code 
: 168 01 MESSAGE VECTOR (1) = 0; ' Use current time of day 
3; 01 FORMAT_MESSAGE (.ROCB, MESSAGE_VECTOR); ! Format the message 
: 17 01 NOTIFY-OPERATOR (.ROCB); i Notify the requestor 
3; VW 1 DEALLOTATE_ROCB (.ROQCB); ! Dispose of the RQCb 
; 17 1 RETURN; ! Dismiss the request 
; 7 1 END; 
: 17 1 
. a 1 
s U7 1 
; V7 1 
i i 1 
; (1 1 
7 2 
3 1 
3 7 1 
ee 1 
eS 1 
3 1 
a 3 1 
- F 1 
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BEGIN 
MESSAGE_VECTOR [0] = OPCS$_OPERSTS; ! Set message code 


SS 


anne x6 $88 
Pepe CE 9€ 000 
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Use current date and time 


Set status message descriptor 
Format the message 


! Send status message to the requestor 


Get count of requests 
Get address of first RQCB 


0) 
AND .RQST-RQCB CROCB-L-ATTNMASK2]) NEQ 0) 


nform the operator 


! Restore MCB address 


Decrement the request cout 
Get address of next request 


Process any implicit cancellations 
Dismiss the request. 


End of STATUS_HANDLER 
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OPCSSTATUS 16-Sep-1984 01:57: 
90-000 1e-808-1382 93:85:58 
; 1 1 § MESSAG =VECTOR 1) = 0; ' 
. 1 MESSAGE VECTOR é = ROCB CROCB_L_OPER_LENJ;! Set operator device name 
3 19 1 MESSAGE VECTOR = STATUS DESC: ' 
: 19¢ 19 FORMAT_MESSAGE (,ROCB, MESSAGE_VECTOR); i 
; 193 19¢ NOTIFYLOPERATOR (.ROCB); 
: 195 194 2! . 
3 138 195 ! Scan through the List of request queued for this OCD. 
; 19 138 ! If the requestor is enabled to handle the request, inform 
: 138 13 the operator of the request. 
: 9 199 OCD = .OPER_RQCB CROCB_L_OCD); ' Get OCD address 
: 201 00 @ RQST_COUNT = .OCD COCD-W-ROSTCOUNTI; i 
3 o 9} RQST-RQCB = .OCD COCD C_ROSTFLINK); ' 
: 20 ; WHILE (.RQST_COUNT GTR 0) DO 
; $e + BEGIN 
: 54 0205 i Compare the attention masks of the requests against 
: 20 0 oe ! the attention masks of the operator. If any bits are 
: 4 8 4 } in common, then notify the operator of the request. 
: 210 0209 4 if ((.OPER_ROCB ROCB_L_ATTNMASK] AND .RQST_RQCB CROCB_L_ATTNMASK1]) NEQ 
; i 9 10 4 OR ((.OPERIROCB RQCB_L_ATTNMASK2 
3 1§ 0 12 ; If NOT IMPLICITLY_CANCELED (.RQST_RQCB) 
: 215 0 14 4 BEGIN 
; 216 15 4 MCB = .ROCB CROCB_L_MCBI; ! Save MCB address 
: 217 0 16 4 ROCB CROCB_L_MCB)~=~.RQST_RQCB CROCB_L_MCB); 
: 218 0217 4&4 NOTIFY_OPERATOR (.RQCB); TTY 
: 219 0218 4 RQCB CROCB_L_MCB) = .MCB; 
: 0 0219 END; 
3 1 0220 RQST_COUNT = .RQST_COUNT - 1; ' 
: : 0221 ROST-RQCB = .ROST-ROCB CROCB_L_FLINK); i 
: ; 8 § END; 
> 225 0224 2 IMPLIED CANCEL (); 
s $$ BS¢? DEALLOCATE_ROCB (.RQCB); ! 
; 58 0559 END; 


TLE OPCSSTATUS 
ENT \v04-000\ 


TRN CHECK REQUEST, DEALLOCATE RQCB 
XTRN Fig OPERATOR, FORMAT_MESSAGE 


-PSECT $CODES,NOWRT,2 


-ENTRY STAT ys amet En Saye R2,R3,R4,R5,R6,R7 


MOVAB NOTA OPERATO 
MOVAB =2596(SP), SP 
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00006 


00006 


00006 
EC 


00006 


00006 


00006 


8F 


AD 


000580 


000580 
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On 
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008A 


1 
1 
He 29006 
0% 9001 
DD 13 
re BSS 
eB olf 
6 00038 
DO 000 
DD 000 6 
PB 000 
eS O03 
F 99 
DD 9 036 
FB 0038 
E 9005p 
DO 00040 
D4 00048 
9F 00048 
DD 000%E 
FB 0005 
DD 00055 
FB 00057 
31 0005A 
C 9005p 
9E 0006 
9F 00068 
9F 00068 
DO 0006 
9F 0007 
FB 9007 
E9 O007A 
DO 0007D 
D4 00085 
9E 00088 
9E 0008D 
oF 00092 
DD 0009 
FB 00097 
DD 0009C 
FB OO09E 
b0 OOA1 
¢ O0A5 
DO 000A9 
D5 OOOAD 
15 OOOAF 
D3 00081 
12 00086 
D3 00088 
1 9 BD 
DD OO00BF 
FB 00C1 
E8 00066 
DO 000C9 
dO 90¢p 
DD 000D2 
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SEU PER DESC, #68 


BUFFER_DESC 

ae. GHECK REQUEST 
R a $ 

ROCB, R3 


, FFER DESC 
’ ACID OPERATOR 


Rives 
» FIND OPERATOR 

4 Rb: as MESSAGE_VECTOR 
MESSAGE. VECTOR+4~ 
MESSAGE ~ “VECTOR 

, FORMAT_MESSAGE 

i NOTIFY_OPERATOR 
#2560 STATUS_DESC 
Tus _BUF, STATUS_DESC+4 

Est 

OPER vats R4 
HN NTERPRET _MASK 
#360643, MESSAGE _VECTOR 

AGE. VECTOR+4~ 
124(R3), MESSAGE VECTOR+8 
STATUS DESC, MESSAGE_VECTOR+12 
MESSAGE. VECTOR 
, FORMAT_MESSAGE 
NOTIFY_OPERATOR 
DS, RQST_COUNT 
D): ROST= “RQCB 
OUNT 
92(R4), 
6(R4), 


92(RQST_RQCB) 
96(RQST_RQCB) 


ROST_ROQCB 
#1, TMPLICITLY_CANCELED 


1 (RS) MCB 
19 (ROST_ROCB), 108(R3) 
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9045800 18:3 Sep -1 198 9}: 35; 48 D1 SKSVMSMASTER = COPCOM. SRCISTATUS. B32" 1% (2) 
67 1 D4 CALLS "Obs OPERATOR ; 

6c AS : 09 07 MOVL 4 ; 318 

D DB 7$ DECL ROSf_COUNT : 20 

52 62 99 OeD ayo (ROST_ RQCB), ROST_ROCB g 8563 

00006 CF 09 FB O0e2 gs: CALLS , IMPLIED CANCEL : 0224 

DD OOOE? 9$: PUSHL : 0225 
0000G CF 01 FB QO0E9 CALLS #1, DEALLOCATE_ROCB é 

04 OOOEE RET + 0227 


; Routine Size: 239 bytes, Routine Base: $CODE$S + 0000 


0559 END ! End of STATUS 
> En 
0580 7 


Name Bytes Attributes 
239 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


quascnme Symbols eoonoene Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: (SY ot 103 1613231 18619 0 1000 00:01.8 
~$255$DUA28 : COPCOM.OBJ JOPCOMLIB.L32;1 633 18 2 43 00:00.8 
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COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:STATUS/OBJ=OBJ$:STATUS MSRC$:STATUS/UPDATE=(ENH$: STATUS) 


; Size: 239 code + 0 data bytes 
; Run "lies :07.6 

: Elapsed. Hines 0:30.1 

; Lines/CPU Min: 1890 

; Lexemes/CPU-Min: 10195 

: poet | Used: 103 pages 

; Compilation Complete 
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